home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d14
/
booklt.arc
/
CLOCK.TBK
(
.txt
)
< prev
next >
Wrap
Asymetrix ToolBook File
|
1990-11-03
|
29KB
|
418 lines
r/a/p"
"hhminsec"
coords
clock
) - (
())/2
4oldHour,oldMinutes,oldSecs,
currentTime
hour
minutes
secs
hourAngle
R/12 +
H/60/12) * (2 * PI) - (PI / 2)
minutesAngle
x/60) * (2 * PI) - (PI / 2)
secsAngle
/60) * (2 * PI) - (PI / 2)
UsecsLine
(ctr
+ (.95 *
)), \
(.95 *
UminutesLine
+ (.8 *
)), \
(.8 *
"A.M."
r/a/p"
r/a/p"
"P.M."
r/a/p"
UhourLine
+ (.6 *
)), \
(.6 *
)/2,\
"d-M-y"
r/a/p"
"A.M."
r/a/p"
"P.M."
r/a/p"
) - (
toggleStatus
enterBook
author
reader
toggleStatus
enterBook
reader
sizeToPage
d-M-y
date/a/p
date/a/p
date/a/p
hhminsec
clock
coords
radius
secsLine
clock
clock
ffffff
ffffff
minutesLine
clock
clock
date/a/p
date/a/p
date/a/p
hourLine
clock
clock
333333
333333
hourLine
minutesLine
clock
secsLine
secsAngle
minutesAngle
hourAngle
minutes
currentTime
oldHour
oldMinutes
oldSecs
radius
clock
coords
author
sizeToPage
reader
sizeToPage
d-M-y
date/a/p
date/a/p
date/a/p
hhminsec
clock
coords
radius
toggleStatus
Chronometer
oldBounds
124,34,516,466
p7stem
-- Resizeable sample clock
-- Authored
HJeff Day, Asymetrix Corporation.
-- Copyright 1990, All Rights Reserved
linkDLL "tbkwin.dll"
INT xUnitsFromPixels(
yUnitsFromPixels(
Ouser"
WORD SetTimer(
,DWORD)
`KillTimer(
/sysClientHandle,100,1000,0)
timerError
= 0
"No Windows timers are available.
will
200,100,425,345
4oldHour,oldMinutes,oldSecs,radius
oldBounds
0,0,0,0
"hhminsec"
killTimer(
100)
\,oldxOffset,oldyOffset
windowBounds
.- 8)
I- 28)
q = xoffset
ehas just been moved
Fupdate its location
"dial"
sysMagnification,
coords
) - (
'))/2
K) - (
W))/2
"hub"
- (.08 *
- (.08 *
+ (.08 *
+ (.08 *
< 800
U"minutesLine"
U"hourLine"
< 1200
currentTime
secs
hourAngle
/12 +
/60/12) * (2 * PI) - (PI / 2)
minutesAngle
/60) * (2 * PI) - (PI / 2)
secsAngle
/60) * (2 * PI) - (PI / 2)
UsecsLine
+ (.95 *
)), \
(.95 *
+ (.8 *
)), \
(.8 *
+ (.6 *
)), \
(.6 *
-- necessary
smallest possible
)/2,\
toggleStatus
enterBook
author
leaveBook
reader
toggleStatus
enterBook
tbkwin.dll
xUnitsFromPixels
yUnitsFromPixels
SetTimer
KillTimer
SetTimer
No Windows timers are available. The clock will not run.
reader
hhminsec
oldBounds
oldHour
oldMinutes
oldSecs
radius
timerError
leaveBook
killTimer
timerError
xoffset
xUnitsFromPixels
yUnitsFromPixels
minutesLine
hourLine
minutesLine
hourLine
minutesLine
hourLine
secsLine
ffffff
ffffff
minutesLine
hourLine
333333
333333
hourLine
minutesLine
secsLine
secsAngle
minutesAngle
hourAngle
minutes
currentTime
coords
yOffset
xOffset
windowBounds
oldHour
oldMinutes
oldSecs
radius
oldBounds
oldxOffset
oldyOffset
coords
author
reader
toggleStatus
d-M-y
date/a/p
date/a/p
date/a/p
hhminsec
coords
oldHour
oldMinutes
oldSecs
radius
toggleStatus
-- Resizeable sample clock
(Runs
-- Authored
HJeff Day, Asymetrix Corporation.
-- Copyright 1990, All Rights Reserved
linkDLL "tbkwin.dll"
INT xUnitsFromPixels(
yUnitsFromPixels(
Ouser"
WORD SetTimer(
,DWORD)
`KillTimer(
/sysClientHandle,100,1000,0)
timerError
= 0
"No Windows timers are available.
will
200,100,425,345
4oldHour,oldMinutes,oldSecs,radius
oldBounds
0,0,0,0
"hhminsec"
killTimer(
100)
\,oldxOffset,oldyOffset
windowBounds
.- 8)
I- 28)
q = xoffset
ehas just been moved
Fupdate its location
"dial"
sysMagnification,
coords
) - (
'))/2
K) - (
W))/2
"hub"
- (.08 *
- (.08 *
+ (.08 *
+ (.08 *
< 800
U"minutesLine"
U"hourLine"
< 1200
currentTime
secs
hourAngle
/12 +
/60/12) * (2 * PI) - (PI / 2)
minutesAngle
/60) * (2 * PI) - (PI / 2)
secsAngle
/60) * (2 * PI) - (PI / 2)
UsecsLine
+ (.95 *
)), \
(.95 *
+ (.8 *
)), \
(.8 *
+ (.6 *
)), \
(.6 *
-- necessary
smallest possible
)/2,\
toggleStatus
enterBook
author
leaveBook
reader
toggleStatus
enterBook
tbkwin.dll
xUnitsFromPixels
yUnitsFromPixels
SetTimer
KillTimer
SetTimer
No Windows timers are available. The clock will not run.
reader
hhminsec
oldBounds
oldHour
oldMinutes
oldSecs
radius
timerError
leaveBook
killTimer
timerError
xoffset
xUnitsFromPixels
yUnitsFromPixels
minutesLine
hourLine
minutesLine
hourLine
minutesLine
hourLine
secsLine
ffffff
ffffff
minutesLine
hourLine
333333
333333
hourLine
minutesLine
secsLine
secsAngle
minutesAngle
hourAngle
minutes
currentTime
coords
yOffset
xOffset
windowBounds
oldHour
oldMinutes
oldSecs
radius
oldBounds
oldxOffset
oldyOffset
coords
author
reader
toggleStatus
reader
clock components
oldPos
resize
d-M-y
date/a/p
date/a/p
date/a/p
hhminsec
coords
oldHour
oldMinutes
oldSecs
radius
toggleStatus
hourLine
secsLine
minutesLine
date/a/p
25-May-1990
A.M.M.
4radius
"dial"
clock - .8 *
f((i - 1)/12 * 2 * PI + PI/2)),\
((i - 1)/12 * 2 * PI + PI/2))
buttonUp
buttonUp
clock
radius
Button
B @-@
,$*8bjaR